home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Testers / Chord Tester < prev    next >
Lisp/Scheme  |  1998-10-26  |  1KB  |  52 lines
  1. ; Template for Studies in PITCH - chord tonalities
  2.  
  3. (setq melchd '(abcd))
  4. (setq melchde '(abcdefg))
  5.  
  6. (def-symbol 
  7.   piano melchde
  8. )
  9.  
  10. (def-length
  11.   piano '(1/4)
  12. )
  13.  
  14. (setq allchords 
  15.       (activate-tonality
  16.            (c maj 1 1 4) (c maj 3 1 4) (c maj 5 1 4) 
  17.            (c maj 6 1 4) (c maj 7 1 4) (c maj maj7 1 4) 
  18.            (c maj 9 1 4) (g maj 7 1 4) 
  19.            (c maj 1 1 4) (c maj 1 3 4) (c maj 1 5 4) 
  20.            (c maj 6 2 4) (c maj 7 2 4) (c maj maj7 2 4) 
  21.            (c maj 9 2 4) (c maj 9 12 4) (g maj 7 1 4) 
  22.            (c maj 1 1 4)))
  23.  
  24. (setq allchords1 
  25.       (activate-tonality
  26.        (c min 1 1 4) (c min 3 1 4) (c min 5 1 4) 
  27.        (c min 6 1 4) (c min 7 1 4) (c min maj7 1 4) 
  28.        (c min 9 1 4) (g min 7 1 4) 
  29.        (c min 1 1) (c min 1 3) (c min 1 5) 
  30.        (c min 6 2 4) (c min 7 2 4) (c min maj7 2 4) 
  31.        (c min 9 2 4) (c min 9 12 4) (g min 7 1 4) 
  32.        (c min 1 1 4)))
  33.  
  34. (setq allchords2 
  35.       (activate-tonality
  36.        (c maj 1 1 4) (c# maj 1 1 4) (d maj 1 1 4) 
  37.        (d# maj 1 1 4) (e maj 1 1 4) (f maj 1 1 4) 
  38.        (f# maj 1 1 4) (g maj 7 1 4) 
  39.        (c maj 1 1 4) (b maj 1 1 4) (b& maj 1 1 4) 
  40.        (a maj 1 1 4) (a& maj 1 1 4) (g maj 1 1 4) 
  41.        (g dim 1 1 4) (g aug 1 1 4) (g &5 7 1 4) 
  42.        (c v 1 1 4)))
  43.  
  44. (compile-song-p "ccl;output:" 1/4 "song"
  45. ; BARS            |--|--|--|--|--|--|--|--|
  46.  
  47. scale allchords1 " ....... ........ . .   "
  48. piano     scale  "-------- -------- - -- -"
  49. )
  50.  
  51.  
  52.